home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Grafik & Text / OzTeX3.0 / BibTeX / BibTeX inputs / apalike.bst < prev    next >
Text File  |  1996-02-11  |  22KB  |  1,102 lines
  1. % BibTeX `apalike' bibliography style (24-Jan-88 version)
  2. % Adapted from the `alpha' style, version 0.99a; for BibTeX version 0.99a.
  3. % Copyright (C) 1988, all rights reserved.
  4. % Copying of this file is allowed, provided that if you make any changes at all
  5. % you name it something other than `apalike.bst'.
  6. % This restriction helps ensure that all copies are identical.
  7. % Differences between this style and `alpha' are generally heralded by a `%'.
  8. % The file btxbst.doc has the documentation for alpha.bst.
  9. %
  10. % This style should be used with the `apalike' LaTeX style (apalike.sty).
  11. % \cite's come out like "(Jones, 1986)" in the text but there are no labels
  12. % in the bibliography, and something like "(1986)" comes out immediately
  13. % after the author.  Author (and editor) names appear as last name, comma,
  14. % initials.  A `year' field is required for every entry, and so is either
  15. % an author (or in some cases, an editor) field or a key field.
  16. %
  17. % Editorial note:
  18. % Many journals require a style like `apalike', but I strongly, strongly,
  19. % strongly recommend that you not use it if you have a choice---use something
  20. % like `plain' instead.  Mary-Claire van Leunen (A Handbook for Scholars,
  21. % Knopf, 1979) argues convincingly that a style like `plain' encourages better
  22. % writing than one like `apalike'.  Furthermore the strongest arguments for
  23. % using an author-date style like `apalike'---that it's "the most practical"
  24. % (The Chicago Manual of Style, University of Chicago Press, thirteenth
  25. % edition, 1982, pages 400--401)---fall flat on their face with the new
  26. % computer-typesetting technology.  For instance page 401 anachronistically
  27. % states "The chief disadvantage of [a style like `plain'] is that additions
  28. % or deletions cannot be made after the manuscript is typed without changing
  29. % numbers in both text references and list."  LaTeX sidesteps the disadvantage.
  30. %
  31. % History:
  32. %   15-sep-86    (SK,OP)    Original version, by Susan King and Oren Patashnik.
  33. %   10-nov-86    (OP)    Truncated the sort.key$ string to the correct length
  34. %            in bib.sort.order to eliminate error message.
  35. %   24-jan-88    (OP)    Updated for BibTeX version 0.99a, from alpha.bst 0.99a;
  36. %            apalike now sorts by author, then year, then title;
  37. %            THIS `apalike' VERSION DOES NOT WORK WITH BIBTEX 0.98i.
  38.  
  39. ENTRY
  40.   { address
  41.     author
  42.     booktitle
  43.     chapter
  44.     edition
  45.     editor
  46.     howpublished
  47.     institution
  48.     journal
  49.     key
  50. %    month        not used in apalike
  51.     note
  52.     number
  53.     organization
  54.     pages
  55.     publisher
  56.     school
  57.     series
  58.     title
  59.     type
  60.     volume
  61.     year
  62.   }
  63.   {}
  64.   { label extra.label sort.label }
  65.  
  66. INTEGERS { output.state before.all mid.sentence after.sentence after.block }
  67.  
  68. FUNCTION {init.state.consts}
  69. { #0 'before.all :=
  70.   #1 'mid.sentence :=
  71.   #2 'after.sentence :=
  72.   #3 'after.block :=
  73. }
  74.  
  75. STRINGS { s t }
  76.  
  77. FUNCTION {output.nonnull}
  78. { 's :=
  79.   output.state mid.sentence =
  80.     { ", " * write$ }
  81.     { output.state after.block =
  82.     { add.period$ write$
  83.       newline$
  84.       "\newblock " write$
  85.     }
  86.     { output.state before.all =
  87.         'write$
  88.         { add.period$ " " * write$ }
  89.       if$
  90.     }
  91.       if$
  92.       mid.sentence 'output.state :=
  93.     }
  94.   if$
  95.   s
  96. }
  97.  
  98. FUNCTION {output}
  99. { duplicate$ empty$
  100.     'pop$
  101.     'output.nonnull
  102.   if$
  103. }
  104.  
  105. FUNCTION {output.check}
  106. { 't :=
  107.   duplicate$ empty$
  108.     { pop$ "empty " t * " in " * cite$ * warning$ }
  109.     'output.nonnull
  110.   if$
  111. }
  112.  
  113. %                    apalike needs this function because
  114. %                    the year has special punctuation;
  115. %                    apalike ignores the month
  116. FUNCTION {output.year.check}
  117. { year empty$
  118.     { "empty year in " cite$ * warning$ }
  119.     { write$
  120.       " (" year * extra.label * ")" *
  121.       mid.sentence 'output.state :=
  122.     }
  123.   if$
  124. }
  125.  
  126. FUNCTION {output.bibitem}
  127. { newline$
  128.   "\bibitem[" write$
  129.   label write$
  130.   "]{" write$
  131.   cite$ write$
  132.   "}" write$
  133.   newline$
  134.   ""
  135.   before.all 'output.state :=
  136. }
  137.  
  138. FUNCTION {fin.entry}
  139. { add.period$
  140.   write$
  141.   newline$
  142. }
  143.  
  144. FUNCTION {new.block}
  145. { output.state before.all =
  146.     'skip$
  147.     { after.block 'output.state := }
  148.   if$
  149. }
  150.  
  151. FUNCTION {new.sentence}
  152. { output.state after.block =
  153.     'skip$
  154.     { output.state before.all =
  155.     'skip$
  156.     { after.sentence 'output.state := }
  157.       if$
  158.     }
  159.   if$
  160. }
  161.  
  162. FUNCTION {not}
  163. {   { #0 }
  164.     { #1 }
  165.   if$
  166. }
  167.  
  168. FUNCTION {and}
  169. {   'skip$
  170.     { pop$ #0 }
  171.   if$
  172. }
  173.  
  174. FUNCTION {or}
  175. {   { pop$ #1 }
  176.     'skip$
  177.   if$
  178. }
  179.  
  180. FUNCTION {new.block.checkb}
  181. { empty$
  182.   swap$ empty$
  183.   and
  184.     'skip$
  185.     'new.block
  186.   if$
  187. }
  188.  
  189. FUNCTION {field.or.null}
  190. { duplicate$ empty$
  191.     { pop$ "" }
  192.     'skip$
  193.   if$
  194. }
  195.  
  196. FUNCTION {emphasize}
  197. { duplicate$ empty$
  198.     { pop$ "" }
  199.     { "{\em " swap$ * "}" * }
  200.   if$
  201. }
  202.  
  203. INTEGERS { nameptr namesleft numnames }
  204.  
  205. FUNCTION {format.names}
  206. { 's :=
  207.   #1 'nameptr :=
  208.   s num.names$ 'numnames :=
  209.   numnames 'namesleft :=
  210.     { namesleft #0 > }
  211.     { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't :=   % last name first
  212.       nameptr #1 >
  213.     { namesleft #1 >
  214.         { ", " * t * }
  215.         { numnames #2 >
  216.         { "," * }
  217.         'skip$
  218.           if$
  219.           t "others" =
  220.         { " et~al." * }
  221.         { " and " * t * }
  222.           if$
  223.         }
  224.       if$
  225.     }
  226.     't
  227.       if$
  228.       nameptr #1 + 'nameptr :=
  229.       namesleft #1 - 'namesleft :=
  230.     }
  231.   while$
  232. }
  233.  
  234. FUNCTION {format.authors}
  235. { author empty$
  236.     { "" }
  237.     { author format.names }
  238.   if$
  239. }
  240.  
  241. FUNCTION {format.key}            % this function is just for apalike
  242. { empty$
  243.     { key field.or.null }
  244.     { "" }
  245.   if$
  246. }
  247.  
  248. FUNCTION {format.editors}
  249. { editor empty$
  250.     { "" }
  251.     { editor format.names
  252.       editor num.names$ #1 >
  253.     { ", editors" * }
  254.     { ", editor" * }
  255.       if$
  256.     }
  257.   if$
  258. }
  259.  
  260. FUNCTION {format.title}
  261. { title empty$
  262.     { "" }
  263.     { title "t" change.case$ }
  264.   if$
  265. }
  266.  
  267. FUNCTION {n.dashify}
  268. { 't :=
  269.   ""
  270.     { t empty$ not }
  271.     { t #1 #1 substring$ "-" =
  272.     { t #1 #2 substring$ "--" = not
  273.         { "--" *
  274.           t #2 global.max$ substring$ 't :=
  275.         }
  276.         {   { t #1 #1 substring$ "-" = }
  277.         { "-" *
  278.           t #2 global.max$ substring$ 't :=
  279.         }
  280.           while$
  281.         }
  282.       if$
  283.     }
  284.     { t #1 #1 substring$ *
  285.       t #2 global.max$ substring$ 't :=
  286.     }
  287.       if$
  288.     }
  289.   while$
  290. }
  291.  
  292. FUNCTION {format.btitle}
  293. { title emphasize
  294. }
  295.  
  296. FUNCTION {tie.or.space.connect}
  297. { duplicate$ text.length$ #3 <
  298.     { "~" }
  299.     { " " }
  300.   if$
  301.   swap$ * *
  302. }
  303.  
  304. FUNCTION {either.or.check}
  305. { empty$
  306.     'pop$
  307.     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  308.   if$
  309. }
  310.  
  311. FUNCTION {format.bvolume}
  312. { volume empty$
  313.     { "" }
  314.     { "volume" volume tie.or.space.connect
  315.       series empty$
  316.     'skip$
  317.     { " of " * series emphasize * }
  318.       if$
  319.       "volume and number" number either.or.check
  320.     }
  321.   if$
  322. }
  323.  
  324. FUNCTION {format.number.series}
  325. { volume empty$
  326.     { number empty$
  327.     { series field.or.null }
  328.     { output.state mid.sentence =
  329.         { "number" }
  330.         { "Number" }
  331.       if$
  332.       number tie.or.space.connect
  333.       series empty$
  334.         { "there's a number but no series in " cite$ * warning$ }
  335.         { " in " * series * }
  336.       if$
  337.     }
  338.       if$
  339.     }
  340.     { "" }
  341.   if$
  342. }
  343.  
  344. FUNCTION {format.edition}
  345. { edition empty$
  346.     { "" }
  347.     { output.state mid.sentence =
  348.     { edition "l" change.case$ " edition" * }
  349.     { edition "t" change.case$ " edition" * }
  350.       if$
  351.     }
  352.   if$
  353. }
  354.  
  355. INTEGERS { multiresult }
  356.  
  357. FUNCTION {multi.page.check}
  358. { 't :=
  359.   #0 'multiresult :=
  360.     { multiresult not
  361.       t empty$ not
  362.       and
  363.     }
  364.     { t #1 #1 substring$
  365.       duplicate$ "-" =
  366.       swap$ duplicate$ "," =
  367.       swap$ "+" =
  368.       or or
  369.     { #1 'multiresult := }
  370.     { t #2 global.max$ substring$ 't := }
  371.       if$
  372.     }
  373.   while$
  374.   multiresult
  375. }
  376.  
  377. FUNCTION {format.pages}
  378. { pages empty$
  379.     { "" }
  380.     { pages multi.page.check
  381.     { "pages" pages n.dashify tie.or.space.connect }
  382.     { "page" pages tie.or.space.connect }
  383.       if$
  384.     }
  385.   if$
  386. }
  387.  
  388. FUNCTION {format.vol.num.pages}
  389. { volume field.or.null
  390.   number empty$
  391.     'skip$
  392.     { "(" number * ")" * *
  393.       volume empty$
  394.     { "there's a number but no volume in " cite$ * warning$ }
  395.     'skip$
  396.       if$
  397.     }
  398.   if$
  399.   pages empty$
  400.     'skip$
  401.     { duplicate$ empty$
  402.     { pop$ format.pages }
  403.     { ":" * pages n.dashify * }
  404.       if$
  405.     }
  406.   if$
  407. }
  408.  
  409. FUNCTION {format.chapter.pages}
  410. { chapter empty$
  411.     'format.pages
  412.     { type empty$
  413.     { "chapter" }
  414.     { type "l" change.case$ }
  415.       if$
  416.       chapter tie.or.space.connect
  417.       pages empty$
  418.     'skip$
  419.     { ", " * format.pages * }
  420.       if$
  421.     }
  422.   if$
  423. }
  424.  
  425. FUNCTION {format.in.ed.booktitle}
  426. { booktitle empty$
  427.     { "" }
  428.     { editor empty$
  429.     { "In " booktitle emphasize * }
  430.     { "In " format.editors * ", " * booktitle emphasize * }
  431.       if$
  432.     }
  433.   if$
  434. }
  435.  
  436. FUNCTION {format.thesis.type}
  437. { type empty$
  438.     'skip$
  439.     { pop$
  440.       type "t" change.case$
  441.     }
  442.   if$
  443. }
  444.  
  445. FUNCTION {format.tr.number}
  446. { type empty$
  447.     { "Technical Report" }
  448.     'type
  449.   if$
  450.   number empty$
  451.     { "t" change.case$ }
  452.     { number tie.or.space.connect }
  453.   if$
  454. }
  455.  
  456. FUNCTION {format.article.crossref}
  457. { "In"                            % this is for apalike
  458.   " \cite{" * crossref * "}" *
  459. }
  460.  
  461. FUNCTION {format.book.crossref}
  462. { volume empty$
  463.     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
  464.       "In "
  465.     }
  466.     { "Volume" volume tie.or.space.connect
  467.       " of " *
  468.     }
  469.   if$
  470.   "\cite{" * crossref * "}" *                % this is for apalike
  471. }
  472.  
  473. FUNCTION {format.incoll.inproc.crossref}
  474. { "In"                            % this is for apalike
  475.   " \cite{" * crossref * "}" *
  476. }
  477.  
  478. FUNCTION {article}
  479. { output.bibitem
  480.   format.authors "author" output.check
  481.   author format.key output                % special for
  482.   output.year.check                    % apalike
  483.   new.block
  484.   format.title "title" output.check
  485.   new.block
  486.   crossref missing$
  487.     { journal emphasize "journal" output.check
  488.       format.vol.num.pages output
  489.     }
  490.     { format.article.crossref output.nonnull
  491.       format.pages output
  492.     }
  493.   if$
  494.   new.block
  495.   note output
  496.   fin.entry
  497. }
  498.  
  499. FUNCTION {book}
  500. { output.bibitem
  501.   author empty$
  502.     { format.editors "author and editor" output.check
  503.       editor format.key output
  504.     }
  505.     { format.authors output.nonnull
  506.       crossref missing$
  507.     { "author and editor" editor either.or.check }
  508.     'skip$
  509.       if$
  510.     }
  511.   if$
  512.   output.year.check                % special for apalike
  513.   new.block
  514.   format.btitle "title" output.check
  515.   crossref missing$
  516.     { format.bvolume output
  517.       new.block
  518.       format.number.series output
  519.       new.sentence
  520.       publisher "publisher" output.check
  521.       address output
  522.     }
  523.     { new.block
  524.       format.book.crossref output.nonnull
  525.     }
  526.   if$
  527.   format.edition output
  528.   new.block
  529.   note output
  530.   fin.entry
  531. }
  532.  
  533. FUNCTION {booklet}
  534. { output.bibitem
  535.   format.authors output
  536.   author format.key output                % special for
  537.   output.year.check                    % apalike
  538.   new.block
  539.   format.title "title" output.check
  540.   new.block
  541.   howpublished output
  542.   address output
  543.   new.block
  544.   note output
  545.   fin.entry
  546. }
  547.  
  548. FUNCTION {inbook}
  549. { output.bibitem
  550.   author empty$
  551.     { format.editors "author and editor" output.check
  552.       editor format.key output
  553.     }
  554.     { format.authors output.nonnull
  555.       crossref missing$
  556.     { "author and editor" editor either.or.check }
  557.     'skip$
  558.       if$
  559.     }
  560.   if$
  561.   output.year.check                % special for apalike
  562.   new.block
  563.   format.btitle "title" output.check
  564.   crossref missing$
  565.     { format.bvolume output
  566.       format.chapter.pages "chapter and pages" output.check
  567.       new.block
  568.       format.number.series output
  569.       new.sentence
  570.       publisher "publisher" output.check
  571.       address output
  572.     }
  573.     { format.chapter.pages "chapter and pages" output.check
  574.       new.block
  575.       format.book.crossref output.nonnull
  576.     }
  577.   if$
  578.   format.edition output
  579.   new.block
  580.   note output
  581.   fin.entry
  582. }
  583.  
  584. FUNCTION {incollection}
  585. { output.bibitem
  586.   format.authors "author" output.check
  587.   author format.key output                % special for
  588.   output.year.check                    % apalike
  589.   new.block
  590.   format.title "title" output.check
  591.   new.block
  592.   crossref missing$
  593.     { format.in.ed.booktitle "booktitle" output.check
  594.       format.bvolume output
  595.       format.number.series output
  596.       format.chapter.pages output
  597.       new.sentence
  598.       publisher "publisher" output.check
  599.       address output
  600.       format.edition output
  601.     }
  602.     { format.incoll.inproc.crossref output.nonnull
  603.       format.chapter.pages output
  604.     }
  605.   if$
  606.   new.block
  607.   note output
  608.   fin.entry
  609. }
  610.  
  611. FUNCTION {inproceedings}
  612. { output.bibitem
  613.   format.authors "author" output.check
  614.   author format.key output                % special for
  615.   output.year.check                    % apalike
  616.   new.block
  617.   format.title "title" output.check
  618.   new.block
  619.   crossref missing$
  620.     { format.in.ed.booktitle "booktitle" output.check
  621.       format.bvolume output
  622.       format.number.series output
  623.       format.pages output
  624.       address output                    % for apalike
  625.       new.sentence                    % there's no year
  626.       organization output                % here so things
  627.       publisher output                    % are simpler
  628.     }
  629.     { format.incoll.inproc.crossref output.nonnull
  630.       format.pages output
  631.     }
  632.   if$
  633.   new.block
  634.   note output
  635.   fin.entry
  636. }
  637.  
  638. FUNCTION {conference} { inproceedings }
  639.  
  640. FUNCTION {manual}
  641. { output.bibitem
  642.   format.authors output
  643.   author format.key output                % special for
  644.   output.year.check                    % apalike
  645.   new.block
  646.   format.btitle "title" output.check
  647.   organization address new.block.checkb
  648.   organization output
  649.   address output
  650.   format.edition output
  651.   new.block
  652.   note output
  653.   fin.entry
  654. }
  655.  
  656. FUNCTION {mastersthesis}
  657. { output.bibitem
  658.   format.authors "author" output.check
  659.   author format.key output                % special for
  660.   output.year.check                    % apalike
  661.   new.block
  662.   format.title "title" output.check
  663.   new.block
  664.   "Master's thesis" format.thesis.type output.nonnull
  665.   school "school" output.check
  666.   address output
  667.   new.block
  668.   note output
  669.   fin.entry
  670. }
  671.  
  672. FUNCTION {misc}
  673. { output.bibitem
  674.   format.authors output
  675.   author format.key output                % special for
  676.   output.year.check                    % apalike
  677.   new.block
  678.   format.title output
  679.   new.block
  680.   howpublished output
  681.   new.block
  682.   note output
  683.   fin.entry
  684. }
  685.  
  686. FUNCTION {phdthesis}
  687. { output.bibitem
  688.   format.authors "author" output.check
  689.   author format.key output                % special for
  690.   output.year.check                    % apalike
  691.   new.block
  692.   format.btitle "title" output.check
  693.   new.block
  694.   "PhD thesis" format.thesis.type output.nonnull
  695.   school "school" output.check
  696.   address output
  697.   new.block
  698.   note output
  699.   fin.entry
  700. }
  701.  
  702. FUNCTION {proceedings}
  703. { output.bibitem
  704.   format.editors output
  705.   editor format.key output                % special for
  706.   output.year.check                    % apalike
  707.   new.block
  708.   format.btitle "title" output.check
  709.   format.bvolume output
  710.   format.number.series output
  711.   address output                % for apalike
  712.   new.sentence                    % we always output
  713.   organization output                % a nonempty organization
  714.   publisher output                % here
  715.   new.block
  716.   note output
  717.   fin.entry
  718. }
  719.  
  720. FUNCTION {techreport}
  721. { output.bibitem
  722.   format.authors "author" output.check
  723.   author format.key output                % special for
  724.   output.year.check                    % apalike
  725.   new.block
  726.   format.title "title" output.check
  727.   new.block
  728.   format.tr.number output.nonnull
  729.   institution "institution" output.check
  730.   address output
  731.   new.block
  732.   note output
  733.   fin.entry
  734. }
  735.  
  736. FUNCTION {unpublished}
  737. { output.bibitem
  738.   format.authors "author" output.check
  739.   author format.key output                % special for
  740.   output.year.check                    % apalike
  741.   new.block
  742.   format.title "title" output.check
  743.   new.block
  744.   note "note" output.check
  745.   fin.entry
  746. }
  747.  
  748. FUNCTION {default.type} { misc }
  749.  
  750. MACRO {jan} {"January"}
  751.  
  752. MACRO {feb} {"February"}
  753.  
  754. MACRO {mar} {"March"}
  755.  
  756. MACRO {apr} {"April"}
  757.  
  758. MACRO {may} {"May"}
  759.  
  760. MACRO {jun} {"June"}
  761.  
  762. MACRO {jul} {"July"}
  763.  
  764. MACRO {aug} {"August"}
  765.  
  766. MACRO {sep} {"September"}
  767.  
  768. MACRO {oct} {"October"}
  769.  
  770. MACRO {nov} {"November"}
  771.  
  772. MACRO {dec} {"December"}
  773.  
  774. MACRO {acmcs} {"ACM Computing Surveys"}
  775.  
  776. MACRO {acta} {"Acta Informatica"}
  777.  
  778. MACRO {cacm} {"Communications of the ACM"}
  779.  
  780. MACRO {ibmjrd} {"IBM Journal of Research and Development"}
  781.  
  782. MACRO {ibmsj} {"IBM Systems Journal"}
  783.  
  784. MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
  785.  
  786. MACRO {ieeetc} {"IEEE Transactions on Computers"}
  787.  
  788. MACRO {ieeetcad}
  789.  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
  790.  
  791. MACRO {ipl} {"Information Processing Letters"}
  792.  
  793. MACRO {jacm} {"Journal of the ACM"}
  794.  
  795. MACRO {jcss} {"Journal of Computer and System Sciences"}
  796.  
  797. MACRO {scp} {"Science of Computer Programming"}
  798.  
  799. MACRO {sicomp} {"SIAM Journal on Computing"}
  800.  
  801. MACRO {tocs} {"ACM Transactions on Computer Systems"}
  802.  
  803. MACRO {tods} {"ACM Transactions on Database Systems"}
  804.  
  805. MACRO {tog} {"ACM Transactions on Graphics"}
  806.  
  807. MACRO {toms} {"ACM Transactions on Mathematical Software"}
  808.  
  809. MACRO {toois} {"ACM Transactions on Office Information Systems"}
  810.  
  811. MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
  812.  
  813. MACRO {tcs} {"Theoretical Computer Science"}
  814.  
  815. READ
  816.  
  817. FUNCTION {sortify}
  818. { purify$
  819.   "l" change.case$
  820. }
  821.  
  822. INTEGERS { len }
  823.  
  824. FUNCTION {chop.word}
  825. { 's :=
  826.   'len :=
  827.   s #1 len substring$ =
  828.     { s len #1 + global.max$ substring$ }
  829.     's
  830.   if$
  831. }
  832.  
  833. %            There are three apalike cases: one person (Jones),
  834. %            two (Jones and de~Bruijn), and more (Jones et~al.).
  835. %            This function is much like format.crossref.editors.
  836. %
  837. FUNCTION {format.lab.names}
  838. { 's :=
  839.   s #1 "{vv~}{ll}" format.name$
  840.   s num.names$ duplicate$
  841.   #2 >
  842.     { pop$ " et~al." * }
  843.     { #2 <
  844.     'skip$
  845.     { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  846.         { " et~al." * }
  847.         { " and " * s #2 "{vv~}{ll}" format.name$ * }
  848.       if$
  849.     }
  850.       if$
  851.     }
  852.   if$
  853. }
  854.  
  855. FUNCTION {author.key.label}
  856. { author empty$
  857.     { key empty$
  858.     { cite$ #1 #3 substring$ }
  859.     'key                    % apalike uses the whole key
  860.       if$
  861.     }
  862.     { author format.lab.names }
  863.   if$
  864. }
  865.  
  866. FUNCTION {author.editor.key.label}
  867. { author empty$
  868.     { editor empty$
  869.     { key empty$
  870.         { cite$ #1 #3 substring$ }
  871.         'key                % apalike uses the whole key
  872.       if$
  873.     }
  874.     { editor format.lab.names }
  875.       if$
  876.     }
  877.     { author format.lab.names }
  878.   if$
  879. }
  880.  
  881. FUNCTION {editor.key.label}
  882. { editor empty$
  883.     { key empty$
  884.     { cite$ #1 #3 substring$ }
  885.     'key            % apalike uses the whole key, no organization
  886.       if$
  887.     }
  888.     { editor format.lab.names }
  889.   if$
  890. }
  891.  
  892. FUNCTION {calc.label}
  893. { type$ "book" =
  894.   type$ "inbook" =
  895.   or
  896.     'author.editor.key.label
  897.     { type$ "proceedings" =
  898.     'editor.key.label            % apalike ignores organization
  899.     'author.key.label            % for labeling and sorting
  900.       if$
  901.     }
  902.   if$
  903.   ", "                            % these three lines are
  904.   *                            % for apalike, which
  905.   year field.or.null purify$ #-1 #4 substring$        % uses all four digits
  906.   *
  907.   'label :=
  908. }
  909.  
  910. FUNCTION {sort.format.names}
  911. { 's :=
  912.   #1 'nameptr :=
  913.   ""
  914.   s num.names$ 'numnames :=
  915.   numnames 'namesleft :=
  916.     { namesleft #0 > }
  917.     { nameptr #1 >
  918.     { "   " * }
  919.     'skip$
  920.       if$                        % apalike uses initials
  921.       s nameptr "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}" format.name$ 't := % <= here
  922.       nameptr numnames = t "others" = and
  923.     { "et al" * }
  924.     { t sortify * }
  925.       if$
  926.       nameptr #1 + 'nameptr :=
  927.       namesleft #1 - 'namesleft :=
  928.     }
  929.   while$
  930. }
  931.  
  932. FUNCTION {sort.format.title}
  933. { 't :=
  934.   "A " #2
  935.     "An " #3
  936.       "The " #4 t chop.word
  937.     chop.word
  938.   chop.word
  939.   sortify
  940.   #1 global.max$ substring$
  941. }
  942.  
  943. FUNCTION {author.sort}
  944. { author empty$
  945.     { key empty$
  946.     { "to sort, need author or key in " cite$ * warning$
  947.       ""
  948.     }
  949.     { key sortify }
  950.       if$
  951.     }
  952.     { author sort.format.names }
  953.   if$
  954. }
  955.  
  956. FUNCTION {author.editor.sort}
  957. { author empty$
  958.     { editor empty$
  959.     { key empty$
  960.         { "to sort, need author, editor, or key in " cite$ * warning$
  961.           ""
  962.         }
  963.         { key sortify }
  964.       if$
  965.     }
  966.     { editor sort.format.names }
  967.       if$
  968.     }
  969.     { author sort.format.names }
  970.   if$
  971. }
  972.  
  973. FUNCTION {editor.sort}
  974. { editor empty$
  975.     { key empty$
  976.     { "to sort, need editor or key in " cite$ * warning$
  977.       ""
  978.     }
  979.     { key sortify }
  980.       if$
  981.     }
  982.     { editor sort.format.names }
  983.   if$
  984. }
  985.  
  986. %            apalike uses two sorting passes; the first one sets the
  987. %            labels so that the `a's, `b's, etc. can be computed;
  988. %            the second pass puts the references in "correct" order.
  989. %            The presort function is for the first pass. It computes
  990. %            label, sort.label, and title, and then concatenates.
  991. FUNCTION {presort}
  992. { calc.label
  993.   label sortify
  994.   "    "
  995.   *
  996.   type$ "book" =
  997.   type$ "inbook" =
  998.   or
  999.     'author.editor.sort
  1000.     { type$ "proceedings" =
  1001.     'editor.sort
  1002.     'author.sort
  1003.       if$
  1004.     }
  1005.   if$
  1006.   #1 entry.max$ substring$    % for
  1007.   'sort.label :=        % apalike
  1008.   sort.label            % style
  1009.   *
  1010.   "    "
  1011.   *
  1012.   title field.or.null
  1013.   sort.format.title
  1014.   *
  1015.   #1 entry.max$ substring$
  1016.   'sort.key$ :=
  1017. }
  1018.  
  1019. ITERATE {presort}
  1020.  
  1021. SORT        % by label, sort.label, title---for final label calculation
  1022.  
  1023. STRINGS { last.label next.extra }    % apalike labels are only for the text;
  1024.  
  1025. INTEGERS { last.extra.num }        % there are none in the bibliography
  1026.  
  1027. FUNCTION {initialize.extra.label.stuff}    % and hence there is no `longest.label'
  1028. { #0 int.to.chr$ 'last.label :=
  1029.   "" 'next.extra :=
  1030.   #0 'last.extra.num :=
  1031. }
  1032.  
  1033. FUNCTION {forward.pass}
  1034. { last.label label =
  1035.     { last.extra.num #1 + 'last.extra.num :=
  1036.       last.extra.num int.to.chr$ 'extra.label :=
  1037.     }
  1038.     { "a" chr.to.int$ 'last.extra.num :=
  1039.       "" 'extra.label :=
  1040.       label 'last.label :=
  1041.     }
  1042.   if$
  1043. }
  1044.  
  1045. FUNCTION {reverse.pass}
  1046. { next.extra "b" =
  1047.     { "a" 'extra.label := }
  1048.     'skip$
  1049.   if$
  1050.   label extra.label * 'label :=
  1051.   extra.label 'next.extra :=
  1052. }
  1053.  
  1054. EXECUTE {initialize.extra.label.stuff}
  1055.  
  1056. ITERATE {forward.pass}
  1057.  
  1058. REVERSE {reverse.pass}
  1059.  
  1060. %                Now that the label is right we sort for real,
  1061. %                on sort.label then year then title.  This is
  1062. %                for the second sorting pass.
  1063. FUNCTION {bib.sort.order}
  1064. { sort.label
  1065.   "    "
  1066.   *
  1067.   year field.or.null sortify
  1068.   *
  1069.   "    "
  1070.   *
  1071.   title field.or.null
  1072.   sort.format.title
  1073.   *
  1074.   #1 entry.max$ substring$
  1075.   'sort.key$ :=
  1076. }
  1077.  
  1078. ITERATE {bib.sort.order}
  1079.  
  1080. SORT        % by sort.label, year, title---giving final bibliography order
  1081.  
  1082. FUNCTION {begin.bib}
  1083. { preamble$ empty$                % no \etalchar in apalike
  1084.     'skip$
  1085.     { preamble$ write$ newline$ }
  1086.   if$
  1087.   "\begin{thebibliography}{}" write$ newline$        % no labels in apalike
  1088. }
  1089.  
  1090. EXECUTE {begin.bib}
  1091.  
  1092. EXECUTE {init.state.consts}
  1093.  
  1094. ITERATE {call.type$}
  1095.  
  1096. FUNCTION {end.bib}
  1097. { newline$
  1098.   "\end{thebibliography}" write$ newline$
  1099. }
  1100.  
  1101. EXECUTE {end.bib}
  1102.